5 REM COPYRIGHT 1993 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
10 IFA=0THENA=1:LOAD"SWITCHER",8,1
50 POKE53280,6:POKE53281,6
100 OPEN1,0
105 PRINT"[147]"
195 PRINT
200 PRINTSPC(10)"PRIMARY COLOR #14[157][157]";
210 INPUT#1,C$:PRINT
220 V=VAL(C$):IF V<0ORV>15 THEN PRINT"[145]INVALID;[145]":GOTO200
230 POKE53186,V
240 PRINTSPC(10)"SECONDARY COLOR #0[157]";
250 INPUT#1,C$:PRINT
260 V=VAL(C$):IF V<0ORV>15 THEN PRINT"[145]INVALID;[145]":GOTO200
270 POKE53205,V
280 PRINT"[147]SYS 53000"
290 PRINT"NEW"
300 PRINT"SWAP"
310 PRINT"NEW"
320 PRINT"SWAP"
330 PRINT"PLEASE HIT RETURN FIVE TIMES."
999 END